home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / sys / s / ShowPS < prev    next >
AmigaDOS Script File  |  1996-10-22  |  752b  |  38 lines
  1. .key FILE
  2. .bra [
  3. .ket ]
  4.  
  5. ; $VER: MP_ShowPS 2.0 (21.10.96)
  6.  
  7. Assign >NIL: EXISTS POST:
  8. IF WARN
  9.     Assign >NIL: POST: :Pearls/gfx/PostScript/HWGPOST
  10.     Set rempost TRUE
  11. ENDIF
  12.  
  13. Assign >NIL: EXISTS PSFONTS:
  14. IF WARN
  15.     Assign >NIL: PSFONTS: :Pearls/gfx/PostScript/Fonts
  16.     Set rempsfonts TRUE
  17. ENDIF
  18.  
  19. :C/MathSingFix >NIL:
  20. Run >NIL: :C/NessyOpenLib :SYS/Libs/post.library
  21. :C/NessyWaitForLib :SYS/Libs/post.library
  22.  
  23. If [FILE]
  24.     :Pearls/gfx/PostScript/PostView/PostView >NIL: PublicRam Init=POST:init.ps File=[FILE]
  25. Else
  26.     :Pearls/gfx/PostScript/PostView/PostView >NIL: PublicRam Init=POST:init.ps File=`RequestFile PATTERN "#?.ps"`
  27. EndIf
  28.  
  29. :C/NessyCloseLib :SYS/Libs/post.library
  30.  
  31. IF $rempost EQ "TRUE"
  32.     Assign POST:
  33. ENDIF
  34.  
  35. IF $rempsfonts EQ "TRUE"
  36.     Assign PSFONTS:
  37. ENDIF
  38.